home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 19 / AMIGAplus Sonderheft 19 (1999)(ICP)(DE)[!].iso / Demoversionen / Anwendungen / Net_Connect / NC_2.1 / Install next >
Text File  |  1999-03-08  |  7KB  |  246 lines
  1. ; Install script for Nc2.1 UPDATE
  2. ;
  3. ; Copyright by Active Techologies (c) 1998
  4.  
  5. (procedure P_COPY_LIBS
  6.     (copylib (prompt "Updating Contact Manager library." )
  7.              (help @copylib-help)
  8.              (confirm)
  9.              (source "libs/cmanager.library")  
  10.              (dest "libs:")
  11.              (optional "askuser" "force")
  12.     )
  13.     (copylib (prompt "Updating vapor_update library." )
  14.              (help @copylib-help)
  15.              (confirm)
  16.              (source "libs/vapor_update.library")
  17.              (dest "libs:")
  18.              (optional "askuser" "force")
  19.     )
  20.     (copylib (prompt "Updating xarctools library." )
  21.              (help @copylib-help)
  22.              (confirm)
  23.              (source "libs/xarctools.library")
  24.              (dest "libs:")
  25.              (optional "askuser" "force")
  26.     )
  27.  
  28. )
  29.  
  30. (procedure P_COPY_APPDEVICE
  31.  
  32.    (if (= 0 #cpu-choice) (set #appp-name "appp.device"))
  33.    (if (= 1 #cpu-choice) (set #appp-name "appp.device.020"))
  34.    (if (= 2 #cpu-choice) (set #appp-name "appp.device.030"))
  35.    (if (= 3 #cpu-choice) (set #appp-name "appp.device.040"))
  36.    (if (= 4 #cpu-choice) (set #appp-name "appp.device.060"))
  37.  
  38.     (copylib (prompt "Updating appp.device.")
  39.             (help @copylib-help)
  40.             (confirm)
  41.             (source (tackon "Devs/Networks" #appp-name))
  42.             (dest "Devs:networks/")
  43.             (newname "appp.device")
  44.             (optional "askuser" "force")
  45.     )
  46. )
  47.  
  48. (procedure P_COPY_MUI_CLASSES
  49.     (copyfiles (prompt "Updating MUI classes.")
  50.             (help @copylib-help)
  51.             (confirm)
  52.             (source "mui")
  53.             (all)
  54.             (dest "MUI:libs/mui/")
  55.             (optional "askuser" "force")
  56.     )
  57. )
  58.  
  59. (procedure P_COPY_AMIRC
  60.     (if (exists "netconnect2:programs/amirc/")
  61.         (copyfiles (prompt "Updating AmIRC.")
  62.                 (help @copyfiles-help)
  63.                 (confirm)
  64.                 (source "Amirc")
  65.                 (all)
  66.                 (dest "netconnect2:programs/amirc/" )
  67.                 (optional "askuser" "force")
  68.         )
  69.         (copyfiles (prompt "Updating AmIRC.")
  70.                 (help @copyfiles-help)
  71.                 (confirm)
  72.                 (source "Amirc")
  73.                 (all)
  74.                 (dest
  75.                     (askdir
  76.                         (prompt "Select the directory where AmIRC is installed.")
  77.                         (help @askdir-help)
  78.                         (default "netconnect2:programs/amirc/")
  79.                     )
  80.                 )
  81.                 (optional "askuser" "force")
  82.         )
  83.     )
  84. )
  85.  
  86. (procedure P_COPY_CM
  87.     (if (exists "netconnect2:programs/cmanager/")
  88.         (copyfiles (prompt "Updating Contact Manager.")
  89.                 (help @copyfiles-help)
  90.                 (confirm)
  91.                 (source "cmanager")
  92.                 (all)
  93.                 (dest "netconnect2:programs/cmanager/" )
  94.                 (optional "askuser" "force")
  95.         )
  96.         (copyfiles (prompt "Updating Contact Manager.")
  97.                 (help @copyfiles-help)
  98.                 (confirm)
  99.                 (source "cmanager")
  100.                 (all)
  101.                 (dest
  102.                     (askdir
  103.                         (prompt "Select the directory where Contact Manager is installed.")
  104.                         (help @askdir-help)
  105.                         (default "netconnect2:programs/cmanager/")
  106.                     )
  107.                 )
  108.                 (optional "askuser" "force")
  109.         )
  110.     )
  111. )
  112.  
  113. (procedure P_COPY_GENESIS
  114.     (if (exists "netconnect2:amitcp/")
  115.         (copyfiles (prompt "Updating Genesis.")
  116.                 (help @copyfiles-help)
  117.                 (confirm)
  118.                 (source "genesis")
  119.                 (all)
  120.                 (dest "netconnect2:amitcp/" )
  121.                 (optional "askuser" "force")
  122.         )
  123.         (copyfiles (prompt "Updating Genesis.")
  124.                 (help @copyfiles-help)
  125.                 (confirm)
  126.                 (source "genesis")
  127.                 (all)
  128.                 (dest
  129.                     (askdir
  130.                         (prompt "Select the directory where Genesis is installed.")
  131.                         (help @askdir-help)
  132.                         (default "netconnect2:amitcp/")
  133.                     )
  134.                 )
  135.                 (optional "askuser" "force")
  136.         )
  137.     )
  138. )
  139.  
  140. (procedure P_COPY_MD
  141.     (if (exists "netconnect2:programs/microdot-ii/")
  142.         (copyfiles (prompt "Updating Microdot II.")
  143.                 (help @copyfiles-help)
  144.                 (confirm)
  145.                 (source "microdot")
  146.                 (all)
  147.                 (dest "netconnect2:programs/microdot-ii/" )
  148.                 (optional "askuser" "force")
  149.         )
  150.         (copyfiles (prompt "Updating Microdot II.")
  151.                 (help @copyfiles-help)
  152.                 (confirm)
  153.                 (source "microdot")
  154.                 (all)
  155.                 (dest
  156.                     (askdir
  157.                         (prompt "Select the directory where Microdot II is installed.")
  158.                         (help @askdir-help)
  159.                         (default "netconnect2:programs/microdot-ii/")
  160.                     )
  161.                 )
  162.                 (optional "askuser" "force")
  163.         )
  164.     )
  165. )
  166.  
  167. (procedure P_COPY_XARC
  168.     (if (exists "netconnect2:programs/x-arc/")
  169.         (copyfiles (prompt "Updating X-Arc.")
  170.                 (help @copyfiles-help)
  171.                 (confirm)
  172.                 (source "X-Arc")
  173.                 (all)
  174.                 (dest "netconnect2:programs/X-Arc/" )
  175.                 (optional "askuser" "force")
  176.         )
  177.         (copyfiles (prompt "Updating X-Arc.")
  178.                 (help @copyfiles-help)
  179.                 (confirm)
  180.                 (source "x-arc")
  181.                 (all)
  182.                 (dest
  183.                     (askdir
  184.                         (prompt "Select the directory where X-Arc is installed.")
  185.                         (help @askdir-help)
  186.                         (default "netconnect2:programs/x-arc/")
  187.                     )
  188.                 )
  189.                 (optional "askuser" "force")
  190.         )
  191.     )
  192. )
  193.  
  194. (procedure check-cpu-type
  195.  
  196.    (transcript "checking CPU type")
  197.    (set #cpu-type (database "cpu"))
  198.    (if (= #cpu-type "68060")
  199.       (set #cpu-choice 4)
  200.       (if (= #cpu-type "68040")
  201.          (set #cpu-choice 3)
  202.          (if (= #cpu-type "68030")
  203.             (set #cpu-choice 2)
  204.             (if (= #cpu-type "68020")
  205.                (set #cpu-choice 1)
  206.                (set #cpu-choice 0)
  207.             )
  208.          )
  209.       )
  210.    )
  211.  
  212.    (set #cpu-choice
  213.       (askchoice
  214.          (choices "68000" "68020" "68030" "68040" "68060")
  215.          (prompt "Please select which CPU " @app-name " will be running on.")
  216.          (help "Some parts of the " @app-name " package have been optimised for specific members of the 68000 processor family. "
  217.                "You should select the processor that " @app-name " will be running on so that the most appropriate programs will be used.")
  218.          (default #cpu-choice)
  219.       )
  220.    )
  221. )
  222.  
  223. (
  224.     (message
  225.        "\n\n\nNetConnect\n"
  226.        "Update v2.1\n"
  227.        "\n(c) by Active Technologies 1998\n"
  228.        "\nhttp://www.active-net.co.uk"
  229.     )
  230.  
  231.     (set @default-dest "NetConnect2:" )
  232.     (check-cpu-type)
  233.     (P_COPY_LIBS)
  234.     (P_COPY_APPDEVICE)
  235.     (P_COPY_MUI_CLASSES)
  236.     (P_COPY_GENESIS)
  237.     (P_COPY_XARC)
  238.     (P_COPY_CM)
  239.     (P_COPY_AMIRC)
  240.     (P_COPY_MD)
  241.  
  242.     (exit)
  243. )
  244.  
  245.  
  246.